object F_Vinculado: TF_Vinculado
  Left = 222
  Top = 168
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Conuslta Clientes'
  ClientHeight = 462
  ClientWidth = 657
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 7
    Top = 391
    Width = 641
    Height = 57
    Alignment = taCenter
    AutoSize = False
    Caption = 'Label1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -45
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label2: TLabel
    Left = 8
    Top = 15
    Width = 58
    Height = 22
    Caption = 'NOME'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 11
    Top = 388
    Width = 641
    Height = 34
    Alignment = taCenter
    AutoSize = False
    Caption = 'ERROR   -  CONSULTAR  A DIRE'#199#195'O !!!'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -29
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
    Visible = False
  end
  object Label3: TLabel
    Left = 96
    Top = 212
    Width = 67
    Height = 13
    Caption = 'Qtde Parcelas'
  end
  object Label5: TLabel
    Left = 264
    Top = 212
    Width = 65
    Height = 13
    Caption = 'Valor A Pagar'
  end
  object Label6: TLabel
    Left = 8
    Top = 212
    Width = 52
    Height = 13
    Caption = 'Valor Pago'
  end
  object Label7: TLabel
    Left = 184
    Top = 212
    Width = 60
    Height = 13
    Caption = 'Acrescimo %'
  end
  object Label8: TLabel
    Left = 8
    Top = 260
    Width = 107
    Height = 13
    Caption = 'Vencimento 1'#186' parcela'
  end
  object DBText3: TDBText
    Left = 256
    Top = 108
    Width = 110
    Height = 32
    Alignment = taRightJustify
    AutoSize = True
    DataField = 'CPF'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText7: TDBText
    Left = 48
    Top = 175
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'DATANIVER'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText2: TDBText
    Left = 200
    Top = 175
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'FAIXASALARIAL'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText5: TDBText
    Left = 368
    Top = 175
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'TELEFONE'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object DBText6: TDBText
    Left = 514
    Top = 175
    Width = 52
    Height = 16
    AutoSize = True
    DataField = 'UF'
    DataSource = Dm_Querys.Dsq_Clientes
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label9: TLabel
    Left = 136
    Top = 260
    Width = 90
    Height = 13
    Caption = 'Dia do Vencimento'
  end
  object E_Vencimento: TRxLookupEdit
    Left = 136
    Top = 274
    Width = 93
    Height = 21
    LookupField = 'Dia_Vencimento'
    LookupSource = Ds_Dia
    DirectInput = False
    TabOrder = 4
    Text = '10'
    OnKeyDown = E_VencimentoKeyDown
    OnKeyPress = E_VencimentoKeyPress
  end
  object L_NomeCliente: TPanel
    Left = 3
    Top = 48
    Width = 647
    Height = 41
    BevelOuter = bvNone
    Caption = 'L_NomeCliente'
    Color = clInfoBk
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
  end
  object B_FecharPromis: TBitBtn
    Left = 252
    Top = 336
    Width = 93
    Height = 21
    Caption = 'Fecha Promiss'#243'ria'
    TabOrder = 7
    OnClick = B_FecharPromisClick
    OnKeyDown = B_FecharPromisKeyDown
  end
  object E_promissoria: TCheckBox
    Left = 228
    Top = 308
    Width = 117
    Height = 17
    Caption = 'Imprimir Promiss'#243'rias'
    TabOrder = 6
    OnKeyDown = E_promissoriaKeyDown
  end
  object E_PrimParcela: TDateEdit
    Left = 8
    Top = 276
    Width = 113
    Height = 21
    NumGlyphs = 2
    TabOrder = 3
    OnKeyDown = E_PrimParcelaKeyDown
    OnKeyPress = E_PrimParcelaKeyPress
  end
  object B_GerarParcelas: TBitBtn
    Left = 255
    Top = 276
    Width = 90
    Height = 21
    Caption = 'Gerar Parcelas'
    TabOrder = 5
    OnClick = B_GerarParcelasClick
    OnKeyDown = B_GerarParcelasKeyDown
  end
  object GridParcela: TwwDBGrid
    Left = 350
    Top = 228
    Width = 273
    Height = 133
    DisableThemes = False
    Selected.Strings = (
      'Nparcela'#9'8'#9'N'#186' '
      'Vparcela'#9'14'#9'Valor'
      'Vencimento'#9'15'#9'Vencimento')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = DataParcela
    ReadOnly = True
    TabOrder = 8
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    OnKeyDown = GridParcelaKeyDown
  end
  object E_ValorTotal: TCurrencyEdit
    Left = 264
    Top = 228
    Width = 81
    Height = 21
    AutoSize = False
    ReadOnly = True
    TabOrder = 10
    OnKeyDown = E_ValorTotalKeyDown
  end
  object E_Acrescimo: TRxCalcEdit
    Left = 184
    Top = 228
    Width = 65
    Height = 21
    AutoSize = False
    ButtonWidth = 0
    MaxValue = 1000.000000000000000000
    NumGlyphs = 2
    TabOrder = 2
    OnChange = E_AcrescimoChange
    OnKeyDown = E_AcrescimoKeyDown
    OnKeyPress = E_AcrescimoKeyPress
  end
  object E_NumParcelas: TRxCalcEdit
    Left = 96
    Top = 228
    Width = 73
    Height = 21
    AutoSize = False
    DecimalPlaces = 0
    ButtonWidth = 0
    MaxValue = 50.000000000000000000
    MinValue = 1.000000000000000000
    NumGlyphs = 2
    TabOrder = 1
    Value = 1.000000000000000000
    OnEnter = E_NumParcelasEnter
    OnKeyDown = E_NumParcelasKeyDown
    OnKeyPress = E_NumParcelasKeyPress
  end
  object E_ValorEntrada: TCurrencyEdit
    Left = 8
    Top = 228
    Width = 81
    Height = 21
    AutoSize = False
    ReadOnly = True
    TabOrder = 9
    OnKeyDown = E_ValorEntradaKeyDown
  end
  object Panel1: TPanel
    Left = 3
    Top = 44
    Width = 650
    Height = 331
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 11
    object wwDBGrid1: TwwDBGrid
      Left = 4
      Top = 1
      Width = 642
      Height = 330
      DisableThemes = False
      Selected.Strings = (
        'NOME_CLIENTE'#9'48'#9'Nome '
        'TELEFONE'#9'18'#9'Telefone'
        'CELULAR'#9'18'#9'Celular')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = False
      ShowVertScrollBar = False
      DataSource = Dm_Querys.Dsq_Clientes
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Options = [dgTitles, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgWordWrap, dgPerfectRowFit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      Visible = False
      OnKeyDown = wwDBGrid1KeyDown
    end
  end
  object E_Nome: TEdit
    Left = 80
    Top = 7
    Width = 170
    Height = 30
    CharCase = ecUpperCase
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyDown = E_NomeKeyDown
  end
  object Parcelas: TRxMemoryData
    Active = True
    FieldDefs = <
      item
        Name = 'Nparcela'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Vparcela'
        DataType = ftCurrency
      end
      item
        Name = 'Vencimento'
        DataType = ftDate
      end>
    Left = 408
    Top = 276
    object ParcelasNparcela: TStringField
      DisplayLabel = 'N'#186' '
      DisplayWidth = 8
      FieldName = 'Nparcela'
    end
    object ParcelasVparcela: TCurrencyField
      DisplayLabel = 'Valor'
      DisplayWidth = 14
      FieldName = 'Vparcela'
    end
    object ParcelasVencimento: TDateField
      DisplayWidth = 15
      FieldName = 'Vencimento'
    end
  end
  object DataParcela: TwwDataSource
    DataSet = Parcelas
    Left = 464
    Top = 276
  end
  object RxM_Dia: TRxMemoryData
    FieldDefs = <
      item
        Name = 'Dia_Vencimento'
        DataType = ftString
        Size = 2
      end>
    Left = 24
    Top = 312
    object RxM_DiaDia_Vencimento: TStringField
      FieldName = 'Dia_Vencimento'
      Size = 2
    end
  end
  object Ds_Dia: TwwDataSource
    DataSet = RxM_Dia
    Left = 24
    Top = 344
  end
end
